home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / VB42VB3.ZIP / MAIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-22  |  2.5 KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VB-Converter"
  6.    ClientHeight    =   972
  7.    ClientLeft      =   5592
  8.    ClientTop       =   2148
  9.    ClientWidth     =   4632
  10.    Height          =   1392
  11.    Left            =   5544
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   972
  16.    ScaleWidth      =   4632
  17.    Top             =   1776
  18.    Width           =   4728
  19.    Begin CommonDialog cdialog 
  20.       Left            =   3900
  21.       Top             =   480
  22.    End
  23.    Begin CommandButton cmdSearch 
  24.       Caption         =   "<"
  25.       Height          =   312
  26.       Left            =   4260
  27.       TabIndex        =   3
  28.       Top             =   120
  29.       Width           =   312
  30.    End
  31.    Begin CommandButton cmdStart 
  32.       Caption         =   "Convertiere!"
  33.       Default         =   -1  'True
  34.       Height          =   372
  35.       Left            =   1440
  36.       TabIndex        =   2
  37.       Top             =   540
  38.       Width           =   2232
  39.    End
  40.    Begin TextBox inFile 
  41.       Height          =   312
  42.       Left            =   1440
  43.       TabIndex        =   1
  44.       Text            =   "inFile"
  45.       Top             =   120
  46.       Width           =   2772
  47.    End
  48.    Begin Label Label1 
  49.       BackStyle       =   0  'Transparent
  50.       Caption         =   "Input-Project:"
  51.       FontBold        =   0   'False
  52.       FontItalic      =   0   'False
  53.       FontName        =   "MS Sans Serif"
  54.       FontSize        =   7.8
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       Height          =   252
  58.       Left            =   60
  59.       TabIndex        =   0
  60.       Top             =   180
  61.       Width           =   1332
  62.    End
  63. Option Explicit
  64. ' (c) 1996 SOFTplus Enwicklungen GmbH
  65. '          Unterdorf 143
  66. '          CH-8933 Maschwanden
  67. '          SWITZERLAND
  68. '          softplus@access.ch
  69. Sub cmdSearch_Click ()
  70.     On Error Resume Next
  71.     Err = 0
  72.     cdialog.Filter = "*.mak *.vbp | *.mak *.vbp"
  73.     cdialog.FilterIndex = 0
  74.     cdialog.Action = 1
  75.     If Err = 0 Then
  76.         inFile = cdialog.Filename
  77.     End If
  78. End Sub
  79. Sub cmdStart_Click ()
  80.     On Error Resume Next
  81.     sFileIn = inFile
  82.     iDoWhat = 1
  83.     frmWorking.Show 1
  84. End Sub
  85. Sub Form_Load ()
  86.     On Error Resume Next
  87.     inFile = ""
  88.     Call CenterForm(Me)
  89. End Sub
  90.